**** PROGRAM FILE FOR SI2: Restricted Sample Models ****
 
 

 * OPEN "HISTORICAL BUDGET" DATABASE CONTAINING NEW VARIABLES * 
 
use data_final.dta, clear 


**********************************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************




*** DECLARE DATABASE AS A PANEL (AGENCY ID * FISCAL YEAR): 

xtset agenid fyear, yearly

*
*
*



*** I. ESTIMATE EFFECT OF BAA REFORMS ON BUDGETARY CONTROL [BUDGETARY GROWTH AS DEPENDENT VARIABLE] ***



*** ESTIMATE EXECUTIVE BUDGET CONTROL USING ABADIE'S SEMI-PARAMETRIC PROPENSITY SCORE WEIGHTED ESTIMATOR OF HETEROGENEOUS AVERAGE TREATMENT EFFECTS ***

absdid execbudchangetot, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateect
*
absdid execbudchangetot, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store ecti

lincomest _cons + executiveagency
estimate store ecte
*
*
*
absdid execbudchangereg, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateecr
*
absdid execbudchangereg, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store ecri

lincomest _cons + executiveagency
estimate store ecre

*
*
*
*
*** ESTIMATE CONGRESSIONAL BUDGET CONTROL USING ABADIE'S SEMI-PARAMETRIC PROPENSITY SCORE WEIGHTED ESTIMATOR OF HETEROGENEOUS AVERAGE TREATMENT EFFECTS ***

absdid congbudchangetot, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecct
*
absdid congbudchangetot, tvar(bureauofbudget)  xvar(housemajorityparty  presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store ccti

lincomest _cons + executiveagency
estimate store ccte
*
*
*
absdid congbudchangereg, tvar(bureauofbudget)  xvar(housemajorityparty  presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateccr

*
absdid congbudchangereg, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store ccri

lincomest _cons + executiveagency
estimate store ccre

*** Creating Coefficient Plots for Budget Control Models***
*** Figure 1A ***
/*coefplot (ateect, rename(_cons="All Agencies (ATE)")) ///
         (ecte, rename((1)="Executive Agencies (ATE: E)")) ///
         (ecti, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (ecti, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateecr, rename(_cons="All Agencies (ATE)")) ///
         (ecre, rename((1)="Executive Agencies (ATE: E)")) ///
         (ecri, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (ecri, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  order ("All Agencies (ATE)" "Executive Agencies (ATE: E)" "Independent Agencies (ATE: I)" "Difference (ATE: E - I)") /// 
		  byopts(title ("Treatment Effects of BACA on Executive Budget Control", span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\gph\Figure1A.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Figure1A.png", replace

*** Figure 1B ***
coefplot (atecct, rename(_cons="All Agencies (ATE)")) ///
         (ccte, rename((1)="Executive Agencies (ATE: E)")) ///
         (ccti, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (ccti, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateccr, rename(_cons="All Agencies (ATE)")) ///
         (ccre, rename((1)="Executive Agencies (ATE: E)")) ///
         (ccri, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (ccri, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  order ("All Agencies (ATE)" "Executive Agencies (ATE: E)" "Independent Agencies (ATE: I)" "Difference (ATE: E - I)") /// 
		  byopts(title ("Treatment Effects of BACA on Legislative Budget Control", span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\gph\Figure1B.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Figure1B.png", replace */


*** Figure 1 ***
coefplot (ateect, rename(_cons="Executive Estimates (ATE)") \ ///
			atecct, rename(_cons="Congressional Appropriations (ATE)")) ///
		 (ecte, rename((1)="Executive Estimates (ATE: E)") \ ///
			ccte, rename((1)="Congressional Appropriations (ATE: E)")) ///
		 (ecti, keep (_cons) rename(_cons="Executive Estimates (ATE: I)") \ ///
			ccti, keep (_cons) rename(_cons="Congressional Appropriations (ATE: I)")) ///
		 (ecti, drop (_cons) rename(executiveagency= "Executive Estimates (ATE: E - I)")\ ///
			ccti, drop (_cons) rename(executiveagency= "Congressional Appropriations (ATE: E - I)")) ///
		  ,  bylabel(Total Budget)  ///
		  ||                       ///
		 (ateecr, rename(_cons="Executive Estimates (ATE)")\ ///
			ateccr, rename(_cons="Congressional Appropriations (ATE)")) ///
		 (ecre, rename((1)="Executive Estimates (ATE: E)")\ ///
			ccre, rename((1)="Congressional Appropriations (ATE: E)")) ///
		 (ecri, keep (_cons) rename(_cons="Executive Estimates (ATE: I)")\ ///
			ccri, keep (_cons) rename(_cons="Congressional Appropriations (ATE: I)")) ///
		 (ecri, drop (_cons) rename(executiveagency= "Executive Estimates (ATE: E - I)")\ ///
			ccri, drop (_cons) rename(executiveagency= "Congressional Appropriations (ATE: E - I)")) ///
		  , bylabel(Regular Budget)   ///
		  || ,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ///
		  ciopts(recast(rcap)) nooffsets msize(medsmall) ///
		  order("Executive Estimates (ATE)""Congressional Appropriations (ATE)". ///
		  "Executive Estimates (ATE: E)" "Congressional Appropriations (ATE: E)". ///
		  "Executive Estimates (ATE: I)" "Congressional Appropriations (ATE: I)". ///
		  "Executive Estimates (ATE: E - I)" "Congressional Appropriations (ATE: E - I)") ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		   title("Figure 1. 1921 Budget and Accounting Act Average Treatment Effects on" "Executive and Legislative Budget Control", size(med)span)) 
		  
*graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\gph\Figure1.gph", replace
*graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\Figure1.png", replace
		  
		  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  
		  
		  
*** II. ESTIMATE DIFFERENCE-IN DIFFERENCES MODELS USING BUDGETARY STABILITY IN NATURAL LOGARITHMS AS DEPENDENT VARIABLE ***



*** ESTIMATE EFFECT OF BAA REFORMS ON EXECUTIVE BUDGET STABILITY USING ABADIE'S SEMI-PARAMETRIC PROPENSITY SCORE WEIGHTED ESTIMATOR OF HETEROGENEOUS AVERAGE TREATMENT EFFECTS ***

absdid lnexecbudstabletot, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateest
*
absdid lnexecbudstabletot, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store esti

lincomest _cons + executiveagency
estimate store este

*
*
*
absdid lnexecbudstablereg, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateesr
*
absdid lnexecbudstablereg, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store esri

lincomest _cons + executiveagency
estimate store esre

*
*
*

*** ESTIMATE CONGRESSIONAL BUDGET STABILITY USING ABADIE'S SEMI-PARAMETRIC PROPENSITY SCORE WEIGHTED ESTIMATOR OF HETEROGENEOUS AVERAGE TREATMENT EFFECTS ***

absdid lncongbudstabletot, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecst
*
absdid lncongbudstabletot, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store csti

lincomest _cons + executiveagency
estimate store cste
*
*
*
absdid lncongbudstablereg, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecsr
*
absdid lncongbudstablereg, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store csri

lincomest _cons + executiveagency
estimate store csre

*** Creating Coefficient Plots for Budget Stability Models***
*** Figure 2A ***
/* coefplot (ateest, rename(_cons="All Agencies (ATE)")) ///
         (este, rename((1)="Executive Agencies (ATE: E)")) ///
         (esti, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (esti, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateesr, rename(_cons="All Agencies (ATE)")) ///
         (esre, rename((1)="Executive Agencies (ATE: E)")) ///
         (esri, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (esri, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  order ("All Agencies (ATE)" "Executive Agencies (ATE: E)" "Independent Agencies (ATE: I)" "Difference (ATE: E - I)") /// 
		  byopts(title ("Treatment Effects of BACA on Executive Budget Stability", span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\gph\Figure2A.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Figure2A.png", replace

*** Figure 2B ***
coefplot (atecst, rename(_cons="All Agencies (ATE)")) ///
         (cste, rename((1)="Executive Agencies (ATE: E)")) ///
         (csti, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (csti, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (atecsr, rename(_cons="All Agencies (ATE)")) ///
         (csre, rename((1)="Executive Agencies (ATE: E)")) ///
         (csri, keep (_cons) rename(_cons="Independent Agencies (ATE: I)")) ///
		 (csri, drop (_cons) rename(executiveagency= "Difference (ATE: E - I)")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  order ("All Agencies (ATE)" "Executive Agencies (ATE: E)" "Independent Agencies (ATE: I)" "Difference (ATE: E - I)") /// 
		  byopts(title ("Treatment Effects of BACA on Legislative Budget Stability", span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\gph\Figure2B.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Figure2B.png", replace */

*** Figure 2 ***
coefplot (ateest, rename(_cons="Executive Estimates (ATE)")\ ///
			atecst, rename(_cons="Congressional Appropriations (ATE)")) ///
		 (este, rename((1)="Executive Estimates (ATE: E)")\ ///
				cste, rename((1)="Congressional Appropriations (ATE: E)")) ///
		 (esti, keep (_cons) rename(_cons="Executive Estimates (ATE: I)")\ ///
			csti, keep (_cons) rename(_cons="Congressional Appropriations (ATE: I)")) ///
		 (esti, drop (_cons) rename(executiveagency= "Executive Estimates (ATE: E - I)")\ ///
			csti, drop (_cons) rename(executiveagency= "Congressional Appropriations (ATE: E - I)")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateesr, rename(_cons="Executive Estimates (ATE)")\ ///
			atecsr, rename(_cons="Congressional Appropriations (ATE)")) ///
		 (esre, rename((1)="Executive Estimates (ATE: E)")\ ///
			csre, rename((1)="Congressional Appropriations (ATE: E)")) ///
		 (esri, keep (_cons) rename(_cons="Executive Estimates (ATE: I)")\ ///
			csri, keep (_cons) rename(_cons="Congressional Appropriations (ATE: I)")) ///
		 (esri, drop (_cons) rename(executiveagency= "Executive Estimates (ATE: E - I)")\ ///
			csri, drop (_cons) rename(executiveagency= "Congressional Appropriations (ATE: E - I)")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w)  ///
		  ciopts(recast(rcap)) nooffsets msize(medsmall)                      ///
		  order("Executive Estimates (ATE)""Congressional Appropriations (ATE)". ///
		  "Executive Estimates (ATE: E)" "Congressional Appropriations (ATE: E)". ///
		  "Executive Estimates (ATE: I)" "Congressional Appropriations (ATE: I)". ///
		  "Executive Estimates (ATE: E - I)" "Congressional Appropriations (ATE: E - I)") ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure 2. 1921 Budget and Accounting Act Average Treatment Effects on" "Executive and Legislative Budget Stability", size(med)span)) 
		  
*graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\gph\Figure2.gph", replace
*graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\Figure2.png", replace


	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  


*** III. ESTIMATE EFFECT OF BAA REFORMS ON EXECUTIVE-LEGISLATIVE BUDGETARY COHERENCE IN NATURAL LOGARITHMS (+1) AS DEPENDENT VARIABLE ***


*** ESTIMATE EXECUTIVE-CONGRESSIONAL BUDGET COHERENCE USING ABADIE'S SEMI-PARAMETRIC PROPENSITY SCORE WEIGHTED ESTIMATOR OF HETEROGENEOUS AVERAGE TREATMENT EFFECTS ***

absdid ln1execbudcoherencetot, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) sle 
estimate store atebct
*
absdid ln1execbudcoherencetot, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store bcti

lincomest _cons + executiveagency
estimate store bcte
*
*
*
absdid ln1execbudcoherencereg, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atebcr
*
absdid ln1execbudcoherencereg, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store bcri

lincomest _cons + executiveagency
estimate store bcre
*
*
*
*** Creating Coefficient Plots for Budget Coherence Models***
*** Figure 3 ***
coefplot (atebct, rename(_cons="ATE: All Agencies")) ///
		 (bcte, rename((1)="ATE: Executive Agencies")) ///
		 (bcti, keep (_cons) rename(_cons="ATE: Independent Agencies")) ///
		 (bcti, drop (_cons) rename(executiveagency= "ATE: E - I")) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (atebcr, rename(_cons="ATE: All Agencies")) ///
		 (bcre, rename((1)="ATE: Executive Agencies")) ///
		 (bcri, keep (_cons) rename(_cons="ATE: Independent Agencies")) ///
		 (bcri, drop (_cons) rename(executiveagency= "ATE: E - I")) ///
		  , bylabel(Regular Budget) ///
          ||, ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure 3. 1921 Budget and Accounting Act Average Treatment Effects on" "Executive-Legislative Budget Coherence", size(med)span)) 
		  
*graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\gph\Figure3.gph", replace
*graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\post_PMRA\Figure3.png", replace

	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  


*** IV. ESTIMATE EFFECTS OF BAA REFORMS ON BUDGETARY CONTROL [BUDGETARY GROWTH AS DEPENDENT VARIABLE] ***


*** ESTIMATE EXECUTIVE BUDGET CONTROL USING RESTRICTED SAMPLE (POST 1910)***

absdid execbudchangetot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateectt
*
*
absdid execbudchangetot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
*
estimate store ectit

lincomest _cons + executiveagency
estimate store ectet
*
*
*
absdid execbudchangereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateecrt
*
*
absdid execbudchangereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
*
estimate store ecrit

lincomest _cons + executiveagency
estimate store ecret

*
*
*
*
*** ESTIMATE CONGRESSIONAL BUDGET CONTROL USING RESTRICTED SAMPLE (POST 1910)***

absdid congbudchangetot if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecctt
*
*
absdid congbudchangetot if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty  presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
*
estimate store cctit

lincomest _cons + executiveagency
estimate store cctet
*
*
*
absdid congbudchangereg if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty  presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateccrt
*

*
absdid congbudchangereg if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
*
estimate store ccrit

lincomest _cons + executiveagency
estimate store ccret

	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  
		  

*** V. ESTIMATE EFFECTS OF BAA REFORMS ON BUDGETARY STABILITY IN NATURAL LOGARITHMS AS DEPENDENT VARIABLE ***


*** ESTIMATE EXECUTIVE BUDGET STABILITY USING RESTRICTED SAMPLE (POST 1910)***

absdid lnexecbudstabletot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateestt
*
*
absdid lnexecbudstabletot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
*
estimate store estit

lincomest _cons + executiveagency
estimate store estet

*
*
*
absdid lnexecbudstablereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store ateesrt
*
*
absdid lnexecbudstablereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
agencyheadstability realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
*
estimate store esrit

lincomest _cons + executiveagency
estimate store esret

*
*
*

*** ESTIMATE CONGRESSIONAL BUDGET STABILITY USING RESTRICTED SAMPLE (POST 1910)***

absdid lncongbudstabletot if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecstt
*
absdid lncongbudstabletot if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store cstit

lincomest _cons + executiveagency
estimate store cstet
*
*
*
absdid lncongbudstablereg if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atecsrt
*
absdid lncongbudstablereg if fyear>=1910, tvar(bureauofbudget)  xvar(housemajorityparty presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
appropcommchairstabilityest realgnpgrowth realfeddeficitgnp lnagencyage)  yxvar(executiveagency) sle
estimate store csrit

lincomest _cons + executiveagency
estimate store csret

	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  
		  

*** VI. ESTIMATE EFFECTS OF BAA REFORMS ON EXECUTIVE-LEGISLATIVE BUDGETARY COHERENCE IN NATURAL LOGARITHMS (+1) AS DEPENDENT VARIABLE ***


*** ESTIMATE EXECUTIVE-CONGRESSIONAL BUDGET COHERENCE USING RESTRICTED SAMPLE (POST 1910) ***

absdid ln1execbudcoherencetot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) sle 
estimate store atebctt
*
absdid ln1execbudcoherencetot if fyear>=1910, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store bctit

lincomest _cons + executiveagency
estimate store bctet
*
*
*
absdid ln1execbudcoherencereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) sle
estimate store atebcrt
*
absdid ln1execbudcoherencereg if fyear>=1910, tvar(bureauofbudget)  xvar(presidentialstabilityadministrat housemajoritypartystability senatemajoritypartystability ///
unifiedpartygovt sharedtenureest realgnpgrowth realfeddeficitgnp lnagencyage) yxvar(executiveagency) sle
estimate store bcrit

lincomest _cons + executiveagency
estimate store bcret
*
*
*


********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		  
		  



*** Creating Appendix Plots for Budget Control Models ***
*** Figure SI-2A: Executive Budget Control Models: Reported Estimates versus Restricted Sample (FY 1910-FY 1940)***
coefplot (ateect, rename(_cons="ATE (Reported)") \ ///
			ateectt, rename(_cons="ATE (Restricted Sample)") \ ///
			) ///
         (ecte, rename((1)="ATE: E (Reported)") \ ///
			ectet, rename((1)="ATE: E (Restricted Sample)")\  ///
			) ///
         (ecti, drop(executiveagency) rename(_cons="ATE: I (Reported)") \ ///
			ectit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)") \  ///
			) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateecr, rename(_cons="ATE (Reported)") \ ///
			ateecrt, rename(_cons="ATE (Restricted Sample)") \ ///
			) ///
         (ecre, rename((1)="ATE: E (Reported)") \ ///
			ecret, rename((1)="ATE: E (Restricted Sample)") \ ///
			) ///
         (ecri, drop(executiveagency) rename(_cons="ATE: I (Reported)") \ ///
			ecrit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)") \ ///
			) ///
		  ,  bylabel(Regular Budget) ///
		  ||,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  order("ATE (Reported)" "ATE (Restricted Sample)". ///
                "ATE: E (Reported)" "ATE: E (Restricted Sample)" . ///
                "ATE: I (Reported)" "ATE: I (Restricted Sample)") ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("SI-2A: Executive Budget Control Models: " ///
		  "Reported Estimates versus Restricted Sample (FY 1910-FY 1940)", size (med)span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\gph\Figure SI-2A.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\Figure SI-2A.png", replace		  

*** Figure SI-2B: Legislative Budget Control Models: Reported Estimates versus Restricted Sample (FY 1910-FY 1940)***
coefplot (atecct, rename(_cons="ATE (Reported)")\ ///
			atecctt, rename(_cons="ATE (Restricted Sample)")\ ///
		 	) ///
         (ccte, rename((1)="ATE: E (Reported)")\ ///
			cctet, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (ccti, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			cctit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateccr, rename(_cons="ATE (Reported)")\ ///
			ateccrt, rename(_cons="ATE (Restricted Sample)")\ ///
			) ///
         (ccre, rename((1)="ATE: E (Reported)")\ ///
			ccret, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (ccri, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			ccrit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Regular Budget) ///
		  ||,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  order("ATE (Reported)" "ATE (Restricted Sample)"  . ///
                "ATE: E (Reported)" "ATE: E (Restricted Sample)"  . ///
                "ATE: I (Reported)" "ATE: I (Restricted Sample)"  ) ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure SI-2B. Legislative Budget Control Models:" ///
		  "Reported Estimates versus Restricted Sample (FY 1910-FY 1940)", size (med)span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\gph\Figure SI-2B.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\Figure SI-2B.png", replace	

	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************

		  

*** Creating Appendix Plots for Budget Stability Models***
*** Figure SI-2C: Executive Budget Stability Models: Reported Estimates versus Restricted Sample (FY 1910-FY 1940)***
coefplot (ateest, rename(_cons="ATE (Reported)")\ ///
			ateestt, rename(_cons="ATE (Restricted Sample)")\ ///
			) ///
         (este, rename((1)="ATE: E (Reported)")\ ///
			estet, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (esti, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			estit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (ateesr, rename(_cons="ATE (Reported)")\ ///
			ateesrt, rename(_cons="ATE (Restricted Sample)")\ ///
			) ///
         (esre, rename((1)="ATE: E (Reported)")\ ///
			esret, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (esri, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			esrit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Regular Budget) ///
		  ||,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  order("ATE (Reported)" "ATE (Restricted Sample)" "ATE (Alt. Panel 2)" . ///
                "ATE: E (Reported)" "ATE: E (Restricted Sample)" . ///
                "ATE: I (Reported)" "ATE: I (Restricted Sample)" ) ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure SI-2C. Executive Budget Stability Models: " ///
		  "Reported Estimates versus Restricted Sample (FY 1910-FY 1940)", size (med)span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\gph\Figure SI-2C.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\Figure SI-2C.png", replace		  

*** Figure SI-2D: Legislative Budget Stability Models: Reported Estimates versus Restricted Sample (FY 1910-FY 1940)***
coefplot (atecst, rename(_cons="ATE (Reported)")\ ///
			atecstt, rename(_cons="ATE (Restricted Sample)")\ ///
			) ///
         (cste, rename((1)="ATE: E (Reported)")\ ///
			cstet, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (csti, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			cstit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (atecsr, rename(_cons="ATE (Reported)")\ ///
			atecsrt, rename(_cons="ATE (Restricted Sample)")\ ///
			) ///
         (csre, rename((1)="ATE: E (Reported)")\ ///
			csret, rename((1)="ATE: E (Restricted Sample)")\ ///
			) ///
         (csri, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			csrit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)")\ ///
			) ///
		  ,  bylabel(Regular Budget) ///
		  ||,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  order("ATE (Reported)" "ATE (Restricted Sample)" . ///
                "ATE: E (Reported)" "ATE: E (Restricted Sample)" . ///
                "ATE: I (Reported)" "ATE: I (Restricted Sample)" ) ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure SI-2D. Legislative Budget Stability Models:" ///
		  "Reported Estimates versus Restricted Sample (FY 1910-FY 1940)", size (med)span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\gph\Figure SI-2D.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\Figure SI-2D.png", replace	

	  
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
********************************************************************************************************************************************************************
		
*
*
*** Figure SI-2E: Budget Coherence Models: Reported Estimates versus Restricted Sample (FY 1910-FY 1940)***
coefplot (atebct, rename(_cons="ATE (Reported)")\ ///
			atebctt, rename(_cons="ATE (Restricted Sample)") ///
			) ///
         (bcte, rename((1)="ATE: E (Reported)")\ ///
			bctet, rename((1)="ATE: E (Restricted Sample)") ///
			) ///
         (bcti, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			bctit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)") ///
			) ///
		  ,  bylabel(Total Budget) ///
		  ||                       ///
		 (atebcr, rename(_cons="ATE (Reported)")\ ///
			atebcrt, rename(_cons="ATE (Restricted Sample)") ///
			) ///
         (bcre, rename((1)="ATE: E (Reported)")\ ///
			bcret, rename((1)="ATE: E (Restricted Sample)") ///
			) ///
         (bcri, drop(executiveagency) rename(_cons="ATE: I (Reported)")\ ///
			bcrit, drop(executiveagency) rename(_cons="ATE: I (Restricted Sample)") ///
			) ///
		  ,  bylabel(Regular Budget) ///
		  ||,                        ///
          nokey xline (0, lcolor(black) lwidth(thin) lpattern(dash)) grid(w) ciopts(recast(rcap)) ///
		  nooffsets msize(medsmall) ///
		  order("ATE (Reported)" "ATE (Restricted Sample)"  . ///
                "ATE: E (Reported)" "ATE: E (Restricted Sample)"  . ///
                "ATE: I (Reported)" "ATE: I (Restricted Sample)"  ) ///
		  byopts(note("Point Estimates and Corresponding 95% Confidence Intervals", j(right) place(seast) size(vsmall)) ///
		  title ("Figure SI-2E. Executive-Legislative Budget Coherence Models:" ///
		  "Reported Estimates versus Restricted Sample (FY 1910-FY 1940)", size (med)span)) 
		  
graph save "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\gph\Figure SI-2E.gph", replace
graph export "C:\Users\Jin\Dropbox\BACA paper\Graphs\Governance\Figure SI-2E.png", replace	




